with communautes;
procedure communautes_test_class(x : in out communautes.Communaute'Class);
